Option Explicit
Sub C_Sample013()
    Dim myRng As Range
    Dim myRng1 As Range
    Dim myPhn As Phonetic
    Set myRng = Range("A1")                     'Nxs
    Set myRng1 = Range("A2")                     'Nxs
    With myRng
        .Clear                                  'xs檺M
        .Value = "tc"                       'rꪺ]w
        MsgBox "]wW"
        .Phonetic.Text = "UTSUNOMIYA"           ']wW
        .Phonetic.Visible = True
    End With
    With myRng1
        .Clear                                  'xs檺M
        .Value = "tc"                       'rꪺ]w
        MsgBox "]w`"
        .Phonetic.Text = " x |"     ']w`
        .Phonetic.Visible = True
    End With
    Set myRng = Nothing                         '
    Set myRng1 = Nothing                         '
    Set myPhn = Nothing
End Sub


